home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 15
/
Tiger_Disk_015_19xx_Tiger-Crew-Disk_de_Side_B.d64
/
charsetview [ca]
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
64 lines
10 poke 808,225
11 poke 53280,9 :poke53281,9
12 print"[147]andreas menke (ca) for tigerdisc!"
13 print"craze artworx presents 'charsetview'"
14 print"note: this prg does not view all char-"
15 print"acters and the charset must be at $2000!"
16 print"[159]l/ade zeichensatz z/eige zeichensatz"
17 get a$:if a$="l" then goto 20
18 if a$="z" then goto 34
19 goto 17
20 print"der filename muss so aufgebaut sein:"
21 print"[163][163][163][163]"
22 print"[159]x.name"
23 print"[194]"
24 print"[194]"
25 print"kennung (1-9;a-p)
26 [153]"bitte kennung eingeben (1-p) $wait = dir."
27 [161] b$:[139] b$[178]""[167]27
28 [139]b$[178]"$"[167][141]61:[137]26
29 [139] [198](b$)[177]48 [175] [198](b$)[179]58[167]32
30 [139] [198](b$)[177]64 [175] [198](b$)[179]81[167]32
31 [137]27
32 [159]2,8,2,b$[170]"*,p,r":[137]67
33 [147]b$[170]"*",8,1
34 [160]2:[160]15:[153]"open1=1x1 2=1x2 3=2x2"
35 [153]"welche zeichensatz-art ? (1-3)"
36 [161] c$:[139]c$[178]""[167]36
37 c[178][197](c$):[139]c[179]1[176]c[177]3[167]36
38 [145] c [137]40,49,55
39 [143]>-c/1995 by andreas menke (c art)
40 [151]53272,25:[153]"loadabcdefghijklmnopqrstuvwxyz0123456789+-="
41 [153]"?!<>.,:;=[]^*@(NULL)\"
42 [153]"atnpeeklenstr$valascchr$left$right$mid$(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)!#$%&'()(NULL)(NULL)stepsqrtan"
43 [153]"abcdefghijklmnopqrstuvwxyz0123456789+-="
44 [153]"?!<>,.:;=[]^*@(NULL)\"
45 [153]"atnpeeklenstr$valascchr$right$mid$(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)!#$%&'()(NULL)(NULL)stepsqrtan"
46 [153]"openbitte taste druecken!"
47 [151] 198,0:[146] 198,1
48 [151]53272,20:[137] 11
49 [151]53272,25:[153]"loadabcdefghijklmnopqrstuvwxyz"
50 [153]"atnpeeklenstr$valascchr$left$right$mid$(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)"
51 [143] andreas menke meisenweg 2
52 [143] 59939 olsberg
53 [151] 198,0:[146] 198,1
54 [151]53272,20:[137] 11
55 [151]53272,25:[153]"loadaatnbpeekclendstr$evalfascgchr$hleft$iright$jmid$k(NULL)l(NULL)m(NULL)n(NULL)o(NULL)p(NULL)q(NULL)r(NULL)s(NULL)"
56 [153]"aatnbpeekclendstr$evalfascgchr$hleft$iright$jmid$k(NULL)l(NULL)m(NULL)n(NULL)o(NULL)p(NULL)q(NULL)r(NULL)s(NULL)"
57 [153]"waitt(NULL)u(NULL)v(NULL)w(NULL)x(NULL)y(NULL)z(NULL)"
58 [153]"t(NULL)u(NULL)v(NULL)w(NULL)x(NULL)y(NULL)z(NULL)"
59 [151] 198,0:[146] 198,1
60 [151] 53272,20:[137] 11
61 [153]"load":[159]1,8,0,"$":[151]781,1:[158]65478:[161]a$,a$:e$[178][199](0)
62 [161]a$,a$,h$,l$:[139]st[167][158]65484:[160]1:[137]66
63 [153][198](h$[170]e$)[170]256[172][198](l$[170]e$);
64 [161]a$,b$:[139]a$[167][153]a$b$;:[137]64
65 [153]a$:[137]62
66 [151]198,0:[146]198,1:[151]198,0:[142]
67 [159]15,8,15
68 [132]15,aa,bb$,cc,dd
69 [139]aa[179][177]0[167][153]" f e h l e r ! ":[137]71
70 [137]33
71 [153],aa;bb$;cc;dd
72 [129]t[178]1[164]2000:[130]:[160]2:[160]15:[137]26